<!--#Include File="#Config"-->
<!--#Include File="#Function"-->
<!--#Include File="#Check_ip"-->
<%
On Error Resume Next
Response.Buffer=True
response.charset="gb2312"
'Session.Timeout=1000 'ҳ泬ʱʱ
UserAgent = Trim(Lcase(Request.Servervariables("HTTP_USER_AGENT")))
If InStr(UserAgent,"teleport") > 0 or InStr(UserAgent,"webzip") > 0 or InStr(UserAgent,"flashget")>0 or InStr(UserAgent,"offline")>0 Then
	Response.Write "벻Ҫteleport/Webzip/Flashget/Offlineȹҳ"
	Response.End
End If
If not IsObjInstalled("Cnyeses.Myinfo") Then:Response.write "֧棬ϵQQ22566046150Ԫһװװ":Response.end:End If
dim Cms,Conn
Set Cms=Server.CreateObject("Cnyeses.Myinfo")
'Connstr=Cms.ConnStr(sitesqlserver, sitesqluid, "111111")
Connstr= "Provider = Sqloledb; User ID = " & sitesqluid & "; Password = " & sitesqlpsd & "; Initial Catalog = " & sitesqlbase & "; Data Source = " & sitesqlserver & ";"
Cms.OpenConn Connstr
Set Conn=Cms.conn
'Set conn = Server.CreateObject("ADODB.Connection")
'conn.open ConnStr
Cms.sitetx=sitetx
Cms.siteurl=siteurl
Cms.sitehtml=sitehtml
Check_ip()

sns=lcase(Request.ServerVariables("SERVER_NAME"))
sn=split(sns,".")
url1 = sn(UBound(sn) - 1) & "." & sn(UBound(sn))

If url1<>replace(siteurl,"www.","") Or sns<>siteurl then
'Response.redirect "http://"&siteurl&"/"
Else
If sn(0)="www" Then
	tgid=SafeRequest("pid","get")
Else
	tgid=cms.tj("jb_tg","tgid","yuming='"&sn(0)&"' and start=0")
	If  tgid="" Then
	'Response.redirect "http://"&siteurl&"/"
	'Response.End
	End If
End If
End If
set ip = Request.ServerVariables("Local_Addr")
If not ip = "192.161.93.141" Then
	Response.write("ip:" &"֧档ҹɫ԰ϵQQ22566046")
	Response.end()
End if
tg_id=request.cookies("tg")("id")
If tgid<>"" Then
	If tg_id="" Or tg_id=1 then
		If cms.GetNumType(tgid)="string" Then
			Response.cookies("tg")("id")=""
		Else 
			Response.cookies("tg")("id")=tgid
			Response.Cookies("tg").Expires=dateadd("n",30,now())
		End If
	End if
	sname=Cms.czsj("jb_tg","tcbt","yuming",sn(0))
End If
%>